home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n06.arc / LEAPTEST.PRG < prev    next >
Text File  |  1991-03-06  |  619b  |  29 lines
  1.  
  2. *  LEAPTST.PRG, by Robert C. Ashcraft
  3. *  Demonstrates use of ISLEAP() Function
  4. *  Clipper 5.0 and Clipper Summer 87 tested.
  5. CLEAR
  6. ? "Enter a YEAR (Between 100 - 2999) ..."
  7. ? "(Press ENTER alone to Exit)"
  8. ?
  9. DO WHILE .T.
  10.    ACCEPT "> " TO mt
  11.    IF EMPTY(mt)
  12.       RETURN
  13.    ENDIF
  14.    IF VAL(mt)>99 .AND. VAL(mt)<3000
  15.       ?? ">",mt,"is" + ;
  16.           IIF(IsLeap(CTOD("01/01/"+mt)),""," NOT"),"a Leap Year."
  17.   ENDIF
  18. ENDDO
  19. *
  20. * FUNCTION IsLeap(date)
  21. * Return .T. if date is in a leap year, .F. if not
  22. *
  23. FUNCTION IsLeap
  24. PARAMETERS md
  25. RETURN !EMPTY(CTOD("02/29/"+ALLTRIM(STR(YEAR(md)))))
  26. * EOF
  27.  
  28.  
  29.